signature DEBUG_PRINT =
sig

  val debug : bool ref

  val showWarning : string -> unit
  val showError : string -> unit
  val debugPrint : string -> unit
end
